(completion-setup-function): Insert the mouse help message

only if non-nil `window-system'.

diff --git a/lisp/simple.el b/lisp/simple.el
index be3bf692206f9099aaee17ef3eb01d3615051f11..3eb8c84743594cdaf5f6c6366aaea96f6ee4ffb0 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2221,8 +2221,9 @@ a completion with the mouse."
   (save-excursion
     (completion-mode)
     (goto-char (point-min))
-    (insert (substitute-command-keys
-            "Click \\[mouse-choose-completion] on a completion to select it.\n\n"))))
+    (if window-system
+       (insert (substitute-command-keys
+                "Click \\[mouse-choose-completion] on a completion to select it.\n\n")))))
 
 (add-hook 'completion-setup-hook 'completion-setup-function)
 \f